! EEPROM clearing routine for SNK Beast BustersINCLUDE    "68000.POD"SETUP   TRAP ACTIVE INTERRUPT   NO   TRAP ACTIVE FORCE LINE  NOPROGRAM MAIN   REGF=10F8000   REGA=0   WRLOOP:       WRITE @ REGF = 0              DPY-$F       INC REGA              IF REGA > 1000 GOTO END       INC REGF       INC REGF       GOTO WRLOOP       REGF = 10F8000       REGA = 0   RLOOP:       DPY-$F       READ @ REGF       IF REGE > 0 GOTO ERROR_MO       INC REGA       IF REGA > 1000 GOTO END       INC REGF       INC REGF       GOTO RLOOP   END:   DPY-DONE   STOP   ERROR_MO:       DPY-###       DPY ERROR       STOP